home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1998 / MacHack 1998.toast / Programming Contest / ~Solutions Submitted / Problem 05 - Three And One / Solution.p < prev   
Encoding:
Text File  |  1998-06-19  |  2.9 KB  |  79 lines  |  [TEXT/CWIE]
  1. (*
  2. Problem 05 - Database
  3.  
  4. type
  5.     StringsHandle = Handle; // Sequence of Pascal Strings packed together
  6.     DatabaseHandle = Handle; // Must be a real handle
  7.     
  8. procedure DatabaseInit( var database: Handle; field_count: UInt32 );
  9. procedure DatabaseAddEntry( database: Handle; entry: StringsHandle );
  10. procedure DatabaseFindEntry( database: Handle; field: UInt32; const match:
  11. Str255; var entry: StringsHandle );
  12. procedure DatabaseDeleteEntry( database: Handle; field: UInt32; const match:
  13. Str255 );
  14. function DatabaseCount( database: Handle ): UInt32;
  15. procedure DatabaseGetIndEntry( database: Handle; index: UInt32; var entry:
  16. StringsHandle );
  17.  
  18. Your task is to write a set of routines to maintain a database.
  19.  
  20. DatabaseInit creates a new, empty database ready to accept records with
  21. field_count string fields.  The database is stored in the database Handle.
  22.  
  23. DatabaseAddEntry adds an entry (which is a Handle to field_count pascal strings
  24. packed together conceptually numbered 1 to field_count)
  25.  
  26. DatabaseFindEntry finds an entry whose field (between 1 and field_count) string
  27. is exactly equal to match.  The entry is returned in a newly created handle
  28. (which will be disposed of using DisposeHandle).  Return nil if no match is
  29. found.  If more than one entry matches, you must return the earliest added
  30. entry.
  31.  
  32. DatabaseDeleteEntry finds the entry that DatabaseFindEntry would find, and if
  33. found removes it from the database.
  34.  
  35. DatabaseCount returns the number of entries in the database.
  36.  
  37. DatabaseGetIndEntry returns the entries in the Database in the order they were
  38. entered, 1 for the earliest entered, DatabaseCount the last entered.
  39.  
  40. All the database information must be stored in the real Mac memory manager
  41. handle - it will be disposed with DisposeHandle and that must release all
  42. memory, so do not store any extra information outside the handle.  Also, you
  43. must be able to deal with having multiple databases instantiated
  44. simultaneously.
  45.  
  46. You will not be given invalid parameters so you don't need to handle error
  47. checking, and there will be plenty of memory.
  48.  
  49. All strings are case sensitive (ie, treated as eight bit binary data).
  50. *)
  51.  
  52. unit Solution;
  53.  
  54. interface
  55.  
  56. // Do not modify the interface
  57.  
  58.     uses
  59.         Types, Files;
  60.         
  61.     type
  62.         StringsHandle = Handle; // Sequence of Pascal Strings packed together
  63.         DatabaseHandle = Handle; // Must be a real handle
  64.         
  65.     procedure DatabaseInit( var database: Handle; field_count: UInt32 );
  66.     procedure DatabaseAddEntry( database: Handle; entry: StringsHandle );
  67.     procedure DatabaseFindEntry( database: Handle; field: UInt32; const match: Str255; var entry: StringsHandle );
  68.     procedure DatabaseDeleteEntry( database: Handle; field: UInt32; const match: Str255 );
  69.     function DatabaseCount( database: Handle ): UInt32;
  70.     procedure DatabaseGetIndEntry( database: Handle; index: UInt32; var entry: StringsHandle );
  71.  
  72. implementation
  73.  
  74. // Fill in your solution and then submit this folder
  75.  
  76. // Team Name: FILL IN YOUR TEAM NAME!
  77.  
  78. end.
  79.